Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.1/card_13724.txt

Text File | 1989-02-26 | 5KB | 213 lines

-- card: 13724 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 14090
-- name: Self Naming Button


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=106 top=86 right=215 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=79 top=218 right=250 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Example 1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    ask "what do you want to name this button?"
    if it is empty then
      beep
    else
      set the name of the target to it
    end if
  else
    --
    --your normal mouseup script goes in here
    --
  end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=79 top=256 right=288 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Example 1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    ask "what do you want to name this button?"
    if it is empty then
      beep
    else
      set the name of the target to it
    end if
  else
    --
    --your normal mouseup script goes in here
    --
  end if
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=209 top=256 right=288 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Example 1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    ask "what do you want to name this button?"
    if it is empty then
      beep
    else
      set the name of the target to it
    end if
  else
    --
    --your normal mouseup script goes in here
    --
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=209 top=218 right=250 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Example 1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    ask "what do you want to name this button?"
    if it is empty then
      beep
    else
      set the name of the target to it
    end if
  else
    --
    --your normal mouseup script goes in here
    --
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=355 top=255 right=307 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 21240 / 21240
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Example 1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    ask "what do you want to name this button?"
    if it is empty then
      beep
    else
      set the name of the target to it
    end if
  else
    --
    --your normal mouseup script goes in here
    --
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=337 top=218 right=250 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 21240 / 21240
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Example 1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    ask "what do you want to name this button?"
    if it is empty then
      beep
    else
      set the name of the target to it
    end if
  else
    --
    --your normal mouseup script goes in here
    --
  end if
end mouseUp



-- part contents for background part 5
----- text -----
3

-- part contents for background part 12
----- text -----
Self Naming Button

-- part contents for card part 1
----- text -----
When you click on this button with the option key held down, you will be asked to rename it.  This will allow your users to rename buttons without knowing anything about Hypercard
(example 1).  Another way to do this would be to check if the button currently has a name when it is clicked, and allow the user to rename it if it doesn't.